home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / program / knobvb25.zip / DELPHI.ZIP / UNIT1.PAS < prev   
Pascal/Delphi Source File  |  1996-01-13  |  1KB  |  72 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, StdCtrls, VBXCtrl, Knob25;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Knob1: TKnob;
  12.     GroupBox1: TGroupBox;
  13.     MainMenu1: TMainMenu;
  14.     Exit1: TMenuItem;
  15.     Label1: TLabel;
  16.     Knob2: TKnob;
  17.     Knob3: TKnob;
  18.     Knob4: TKnob;
  19.     Knob5: TKnob;
  20.     procedure Exit1Click(Sender: TObject);
  21.     procedure Knob2Turn(Sender: TObject);
  22.     procedure Knob3Turn(Sender: TObject);
  23.     procedure Knob4Turn(Sender: TObject);
  24.     procedure Knob5Turn(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TForm1.Exit1Click(Sender: TObject);
  39. begin
  40. Halt;
  41. end;
  42.  
  43. procedure TForm1.Knob2Turn(Sender: TObject);
  44. begin
  45.  
  46.      Knob3.KnobValue := Knob3.ScaleMaxValue-Knob2.KnobValue;
  47.  
  48. end;
  49.  
  50. procedure TForm1.Knob3Turn(Sender: TObject);
  51. begin
  52.  
  53.      Knob2.KnobValue := Knob2.ScaleMaxValue-Knob3.KnobValue;
  54.  
  55. end;
  56.  
  57. procedure TForm1.Knob4Turn(Sender: TObject);
  58. begin
  59.  
  60.      Knob5.KnobValue := Knob5.ScaleMaxValue-Knob4.KnobValue;
  61.  
  62. end;
  63.  
  64. procedure TForm1.Knob5Turn(Sender: TObject);
  65. begin
  66.  
  67.      Knob4.KnobValue := Knob4.ScaleMaxValue-Knob5.KnobValue;
  68.  
  69. end;
  70.  
  71. end.
  72.